home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Scope / Scope Disk #058 (199x)(Scope PD)(US)[WB].zip / Scope Disk #058 (199x)(Scope PD)(US)[WB].adf / B1Subs / ILBM.integral < prev    next >
Text File  |  1989-01-24  |  11KB  |  210 lines
  1. END
  2. '** This file contains the ILBM assembly
  3. '** routines as DATA statements, rather
  4. '** than loading the routine from disk.
  5. '** It's bulkier, but neater.
  6.  
  7. '** To set up the Screen Load/Save
  8. '** stuff at the start of your program.
  9.  
  10.   GOSUB InitILBM
  11.  
  12. '** The picture's name can be INPUT
  13. '** or by using the following line
  14.  
  15.   FileName$="Your.pic"
  16.  
  17. '** Then use either of the following
  18. '** lines whenever you need it.
  19.  
  20.   GOSUB ILBMloading  
  21.   
  22.   GOSUB ILBMsaving
  23.   
  24. '** The above lines load and save screens
  25. '** but to draw, type or access those screens
  26. '** you must open a SCREEN and WINDOW with
  27. '** the matching resolution and number
  28. '** of bit-planes.  
  29.  
  30. REM -     Assembly Routines 
  31. REM -   by Charles VASSALLO  - March 88
  32. REM - (33 route des Traouieros, 22730 Tregastel - France)
  33.  
  34. InitILBM:
  35.    DIM Code%(1216)
  36.    RESTORE   
  37.    FOR I=0 TO 1215
  38.      READ Code%(I)
  39.    NEXT
  40.    OpenFlag=0   
  41.   RETURN
  42.  
  43. ILBMloading:
  44.    file0$=FileName$+CHR$(0)
  45.    ILBMload&=VARPTR(Code%(0))          
  46.    CALL ILBMload&(SADD(file0$))       
  47.   RETURN
  48.        
  49. ILBMsaving:
  50.    file0$=FileName$+CHR$(0)
  51.    ILBMsave&=VARPTR(Code%(0))+1378       
  52.    CALL ILBMsave&(SADD(file0$))        
  53.   RETURN     
  54.  
  55. REM - OpenFlag=PEEK(2297+VARPTR(code%(0)))  can be tested in case of error
  56.  
  57.  
  58. DATA &H43FA,&H08DE,&H22AF,&H0004,&H243C,&H0000,&H03ED,&H4EBA
  59. DATA &H0440,&H6700,&H00CE,&H203C,&H0000,&H0013,&H41FA,&H0906
  60. DATA &H4298,&H51C8,&HFFFC,&H41FA,&H08D0,&H10BC,&H0000,&H2A7A
  61. DATA &H08DC,&H263C,&H0000,&H000C,&H4EBA,&H03F4,&H6600,&H00A4
  62. DATA &H43FA,&H08A2,&H504A,&H4EBA,&H03FA,&H6600,&H0096,&H103A
  63. DATA &H08A8,&H0200,&H0008,&H6600,&H008A,&H263C,&H0000,&H0008
  64. DATA &H4EBA,&H03CC,&H6600,&H007C,&H262A,&H0004,&H43FA,&H087E
  65. DATA &H4EBA,&H03D0,&H6600,&H000E,&H4EBA,&H0090,&H6600,&H0064
  66. DATA &H4EFA,&HFFCC,&H43FA,&H0862,&H4EBA,&H03B8,&H6600,&H000E
  67. DATA &H4EBA,&H00EC,&H6600,&H004C,&H4EFA,&HFFB4,&H43FA,&H0852
  68. DATA &H4EBA,&H03A0,&H6600,&H000E,&H4EBA,&H00B6,&H6600,&H0034
  69. DATA &H4EFA,&HFF9C,&H43FA,&H083E,&H4EBA,&H0388,&H6600,&H000E
  70. DATA &H4EBA,&H00E6,&H6600,&H001C,&H4EFA,&HFF84,&H2803,&H0284
  71. DATA &H0000,&H0001,&HD684,&H4EBA,&H0356,&H6600,&H0006,&H4EFA
  72. DATA &HFF6E,&H103A,&H0815,&H0C00,&H0007,&H6600,&H0018,&H207A
  73. DATA &H0830,&HD1FC,&H0000,&H0056,&H2050,&H2C79,&H0000,&H0004
  74. DATA &H4EAE,&HFE80,&H4EBA,&H03C8,&H4E75,&H4EBA,&H0322,&H6600
  75. DATA &H004E,&H41FA,&H07E6,&H10AD,&H000A,&H47FA,&H0808,&H176D
  76. DATA &H0008,&H0009,&H376D,&H0000,&H0004,&H376D,&H0002,&H0006
  77. DATA &H103A,&H07C6,&H0200,&H0004,&H6600,&H0024,&H0C6D,&H0178
  78. DATA &H0010,&H6300,&H0008,&H006B,&H8000,&H000C,&H0C6D,&H0136
  79. DATA &H0012,&H6300,&H0008,&H006B,&H0004,&H000C,&H4200,&H4E75
  80. DATA &H4EBA,&H02CC,&H6600,&H0016,&H47FA,&H07BA,&H376D,&H0002
  81. DATA &H000C,&H41FA,&H0784,&H0010,&H0004,&H4200,&H4E75,&H4EBA
  82. DATA &H02AE,&H6600,&H0022,&H284D,&H4240,&H4241,&H4242,&H101C
  83. DATA &H121C,&H141C,&HE940,&HE842,&H8240,&H8242,&H3AC1,&H5783
  84. DATA &H6600,&HFFE6,&H4200,&H4E75,&H4EBA,&H0170,&H6700,&H0152
  85. DATA &H203A,&H075A,&H2200,&H243A,&H0758,&HD082,&H41FA,&H0786
  86. DATA &H2080,&H0681,&H0000,&H0040,&H41FA,&H0772,&H2081,&H0482
  87. DATA &H0000,&H0040,&H41FA,&H0772,&H2082,&H323A,&H0750,&H0C01
  88. DATA &H0005,&H6300,&H0004,&H7205,&H7001,&HE360,&H41FA,&H0760
  89. DATA &H3080,&H2400,&H2A7A,&H0746,&H425D,&H51CA,&HFFFC,&H2C7A
  90. DATA &H0700,&H207A,&H0718,&H227A,&H0734,&H4EAE,&HFF40,&H2A7A
  91. DATA &H0734,&H4280,&H41FA,&H0712,&H3010,&HE680,&H3080,&H2E03
  92. DATA &H7800,&H41FA,&H0728,&H30BC,&H0000,&H103A,&H06CE,&H6600
  93. DATA &H0038,&H4285,&H3A3A,&H06F4,&H5345,&H4283,&H363A,&H06EA
  94. DATA &H2C7A,&H06BA,&H4284,&H383A,&H06E4,&H5344,&H47FA,&H0702
  95. DATA &H223A,&H06B6,&H2413,&H4EAE,&HFFD6,&HD79B,&H51CC,&HFFF2
  96. DATA &H51CD,&HFFE2,&H4EFA,&H007C,&H7C00,&H47FA,&H06E4,&H7000
  97. DATA &H7A00,&H2853,&H4A87,&H6700,&H006A,&H6B00,&H0066,&H4EBA
  98. DATA &H0082,&H181D,&H0C04,&H0080,&H6400,&H0016,&HDA84,&H5245
  99. DATA &H4EBA,&H0070,&H18DD,&H51CC,&HFFF8,&H7800,&H4EFA,&H0016
  100. DATA &H4EBA,&H0060,&H101D,&H4404,&HDA84,&H5245,&H18C0,&H51CC
  101. DATA &HFFFC,&H7800,&HBA7A,&H0672,&H6500,&HFFBA,&H5246,&H2053
  102. DATA &HD0FA,&H0666,&H2688,&H584B,&HBC7A,&H0662,&H6600,&HFFA2
  103. DATA &H41FA,&H067A,&H5250,&H303A,&H0652,&HB07A,&H0670,&H6600
  104. DATA &HFF88,&H41FA,&H0614,&H0010,&H0008,&H4280,&H303A,&H0660
  105. DATA &H2C7A,&H060E,&H207A,&H0626,&H227A,&H0612,&H4EAE,&HFF40
  106. DATA &H4E75,&H5387,&HBBFA,&H063E,&H6600,&H000E,&H2A7A,&H062E
  107. DATA &H263A,&H0636,&H4EBA,&H0118,&H4E75,&H2C7A,&H05E8,&H4EAE
  108. DATA &HFEDA,&H2040,&H2050,&H43FA,&H05F4,&H2288,&HD1FC,&H0000
  109. DATA &H0020,&H7000,&H3010,&H0240,&HCC44,&H323A,&H05F4,&HB340
  110. DATA &H6700,&H000A,&H0C40,&H4000,&H6600,&H002E,&HD1FC,&H0000
  111. DATA &H0004,&H2050,&HD1FC,&H0000,&H0004,&H2050,&HD1FC,&H0000
  112. DATA &H0005,&H7000,&H1010,&HB07A,&H05C4,&H6500,&H000C,&HD1FC
  113. DATA &H0000,&H0003,&H6700,&H00A4,&H41FA,&H05AA,&H317C,&H000F
  114. DATA &H000E,&H117C,&H0000,&H000A,&H117C,&H0000,&H000B,&H2C7A
  115. DATA &H0574,&H4EAE,&HFF3A,&H6700,&H0094,&H41FA,&H055D,&H5210
  116. DATA &H41FA,&H0572,&H2080,&H0680,&H0000,&H002C,&H41FA,&H056E
  117. DATA &H2080,&H0680,&H0000,&H0028,&H41FA,&H055E,&H2080,&H41FA
  118. DATA &H0584,&H43FA,&H0560,&H3169,&H0004,&H0004,&H317C,&H0014
  119. DATA &H0006,&H317C,&H0000,&H0002,&H117C,&H0000,&H0008,&H117C
  120. DATA &H0000,&H0009,&H217C,&H0000,&H0008,&H000A,&H317C,&H000F
  121. DATA &H002E,&H217A,&H0520,&H001E,&H2C7A,&H050A,&H4EAE,&HFF34
  122. DATA &H6700,&H002A,&H41FA,&H04F3,&H5210,&H41FA,&H0514,&H2080
  123. DATA &H207A,&H0506,&H5848,&H2050,&H5048,&H7000,&H303A,&H050E
  124. DATA &H5340,&H43FA,&H052C,&H22D8,&H51C8,&HFFFC,&H4E75,&H223A
  125. DATA &H04D8,&H240D,&H2442,&H2C7A,&H04C4,&H4EAE,&HFFD6,&HB680
  126. DATA &H4E75,&H7003,&H204A,&HB509,&H56C8,&HFFFC,&H2448,&H4E75
  127. DATA &H4BFA,&H04A7,&H1ABC,&H0000,&H2C79,&H0000,&H0004,&H43FA
  128. DATA &H044C,&H4EAE,&HFE68,&H41FA,&H0494,&H2080,&H6700,&H005E
  129. DATA &H5215,&H43FA,&H0444,&H4EAE,&HFE68,&H41FA,&H0484,&H2080
  130. DATA &H6700,&H004A,&H5215,&H43FA,&H0444,&H4EAE,&HFE68,&H41FA
  131. DATA &H0474,&H2080,&H6700,&H0036,&H5215,&H223C,&H0001,&H0001
  132. DATA &H203A,&H046E,&H4EAE,&HFF3A,&H41FA,&H0462,&H2080,&H6700
  133. DATA &H001C,&H5215,&H2C7A,&H0446,&H223A,&H0426,&H4EAE,&HFFE2
  134. DATA &H41FA,&H0446,&H2080,&H6700,&H0004,&H5215,&H4E75,&H1E3A
  135. DATA &H0429,&H2C7A,&H0430,&H0C07,&H0007,&H6600,&H000C,&H207A
  136. DATA &H0440,&H4EAE,&HFFB8,&H5307,&H0C07,&H0006,&H6600,&H000C
  137. DATA &H207A,&H0422,&H4EAE,&HFFBE,&H5307,&H0C07,&H0005,&H6600
  138. DATA &H0010,&H2C7A,&H03F8,&H223A,&H0400,&H4EAE,&HFFDC,&H5307
  139. DATA &H2C79,&H0000,&H0004,&H0C07,&H0004,&H6600,&H0010,&H227A
  140. DATA &H03EC,&H203A,&H03EC,&H4EAE,&HFF2E,&H5307,&H0C07,&H0003
  141. DATA &H6600,&H000C,&H227A,&H03CE,&H4EAE,&HFE62,&H5307,&H0C07
  142. DATA &H0002,&H6600,&H000C,&H227A,&H03B8,&H4EAE,&HFE62,&H5307
  143. DATA &H0C07,&H0001,&H6600,&H000A,&H227A,&H03A2,&H4EAE,&HFE62
  144. DATA &H4E75,&H43FA,&H037C,&H22AF,&H0004,&H243C,&H0000,&H03EE
  145. DATA &H4EBA,&HFEDE,&H6700,&H0192,&H2C7A,&H038A,&H4EAE,&HFEDA
  146. DATA &H2240,&H2251,&H41FA,&H0396,&H2089,&HD3FC,&H0000,&H0020
  147. DATA &H41FA,&H039E,&H3091,&HD3FC,&H0000,&H0004,&H2251,&HD3FC
  148. DATA &H0000,&H0004,&H2251,&H41FA,&H0380,&H3091,&H41FA,&H037C
  149. DATA &H30A9,&H0002,&H41FA,&H0376,&H10A9,&H0005,&H4280,&H1029
  150. DATA &H0005,&H5380,&H41FA,&H038A,&H5089,&H20D9,&H51C8,&HFFFC
  151. DATA &H4280,&H103A,&H0358,&H0C00,&H0006,&H6600,&H0004,&H7005
  152. DATA &H7E01,&HE1A7,&HCEFC,&H0003,&H0687,&H0000,&H003C,&H41FA
  153. DATA &H0344,&H2087,&H7E01,&H4EBA,&H0136,&H41FA,&H02FE,&H10BC
  154. DATA &H0001,&H0807,&H0000,&H6700,&H0008,&H10BC,&H0000,&H5387
  155. DATA &H41FA,&H0326,&H2087,&HDEBA,&H031C,&H2A7A,&H02F0,&H2AFC
  156. DATA &H464F,&H524D,&H2AC7,&H2AFC,&H494C,&H424D,&H2AFC,&H424D
  157. DATA &H4844,&H2AFC,&H0000,&H0014,&H4280,&H303A,&H02EC,&HE740
  158. DATA &H3AC0,&H3AFA,&H02E6,&H2AFC,&H0000,&H0000,&H1AFA,&H02DE
  159. DATA &H1AFC,&H0000,&H3AFC,&H0100,&H3AFC,&H0000,&H3AFC,&H0A0B
  160. DATA &H3AC0,&H3AFA,&H02C6,&H2AFC,&H4341,&H4D47,&H2AFC,&H0000
  161. DATA &H0004,&H3AFC,&H0000,&H3AFA,&H02B8,&H227A,&H02A0,&H5889
  162. DATA &H2251,&H5889,&H2251,&H4280,&H103A,&H02A2,&H0C00,&H0006
  163. DATA &H6600,&H0004,&H7005,&H7401,&HE162,&H2202,&HE381,&HD282
  164. DATA &H2AFC,&H434D,&H4150,&H2AC1,&H5342,&H3011,&H0240,&H0F00
  165. DATA &HE840,&H1AC0,&H3011,&H0240,&H00F0,&H1AC0,&H3019,&H0240
  166. DATA &H000F,&HE940,&H1AC0,&H51CA,&HFFE2,&H2AFC,&H424F,&H4459
  167. DATA &H2AFA,&H0266,&H263A,&H025E,&H0683,&H0000,&H0008,&H4EBA
  168. DATA &H003A,&H6600,&H0024,&H4287,&H4EBA,&H0044,&H6600,&H001A
  169. DATA &H103A,&H0208,&H4A00,&H6700,&H0010,&H207A,&H0210,&H10BC
  170. DATA &H0000,&H7601,&H4EBA,&H0014,&H6700,&H000A,&H41FA,&H01EB
  171. DATA &H10BC,&H00FE,&H4EBA,&HFDB8,&H4E75,&H2C7A,&H01E0,&H223A
  172. DATA &H01E8,&H243A,&H01E8,&H4EAE,&HFFD0,&HB680,&H4E75,&H41FA
  173. DATA &H021C,&H30BC,&H0000,&H2C7A,&H01D4,&HDDFC,&H0000,&H0060
  174. DATA &H41FA,&H01FA,&H208E,&H7C00,&H2C7A,&H01F2,&H47FA,&H0202
  175. DATA &H2853,&H244C,&H4280,&H303A,&H01D0,&HD5C0,&H2A7A,&H01AE
  176. DATA &H1AFC,&H0000,&H7601,&H181C,&HB5CC,&H6600,&H0012,&H1A84
  177. DATA &H1B3C,&H0000,&H7602,&H4EBA,&H0110,&H4EFA,&H00B0,&H1A1C
  178. DATA &H1AC4,&H1AC5,&H5443,&HBA04,&H6700,&H0028,&H1805,&HB9CA
  179. DATA &H6600,&H0014,&H1003,&H5500,&H207A,&H0172,&H1080,&H4EBA
  180. DATA &H00E8,&H4EFA,&H0088,&H1A1C,&H1AC5,&H5243,&HBA04,&H6600
  181. DATA &HFFDC,&H7001,&H5240,&HB9CA,&H6600,&H000A,&H08C6,&H0008
  182. DATA &H6700,&H0012,&H1A1C,&HBA04,&H6700,&HFFEA,&H0C40,&H0002
  183. DATA &H6700,&H0036,&H0C03,&H0003,&H6600,&H0006,&H538D,&H7602
  184. DATA &H1B04,&H5300,&H4400,&H1B00,&H1003,&H5940,&H6B00,&H0008
  185. DATA &H207A,&H011A,&H1080,&H4EBA,&H0090,&H0886,&H0008,&H6600
  186. DATA &H002C,&H1805,&H4EFA,&HFF62,&HB5CC,&H6700,&H000E,&HBA14
  187. DATA &H6700,&HFFC2,&H1805,&H6000,&HFF66,&H1A85,&H1003,&H5300
  188. DATA &H207A,&H00EA,&H1080,&H5203,&H4EBA,&H005E,&H26CA,&H5206
  189. DATA &HBC3A,&H00FA,&H6600,&HFF1A,&H4A87,&H6600,&H001C,&H243A
  190. DATA &H00FC,&H260E,&H9682,&H2C7A,&H00B4,&H223A,&H00BC,&H4EAE
  191. DATA &HFFD0,&HB680,&H6600,&H0030,&H41FA,&H00F2,&H5250,&H3010
  192. DATA &HB07A,&H00C8,&H6600,&HFEE0,&H4280,&H103A,&H00C0,&H5300
  193. DATA &H4282,&H343A,&H00B4,&HC4FA,&H00B2,&H41FA,&H00D4,&H9598
  194. DATA &H51C8,&HFFFC,&H4280,&H4E75,&H4A87,&H6700,&H0004,&HDE83
  195. DATA &H2A7A,&H007A,&H3003,&H5340,&H1CDD,&H51C8,&HFFFC,&H2A7A
  196. DATA &H006C,&HDBFC,&H0000,&H0001,&H7601,&H4E75,&H646F,&H732E
  197. DATA &H6C69,&H6272,&H6172,&H7900,&H6772,&H6170,&H6869,&H6373
  198. DATA &H2E6C,&H6962,&H7261,&H7279,&H00FF,&HFFFF,&H696E,&H7475
  199. DATA &H6974,&H696F,&H6E2E,&H6C69,&H6272,&H6172,&H7900,&HFFFF
  200. DATA &H0000,&H0000,&H494C,&H424D,&H434D,&H4150,&H424D,&H4844
  201. DATA &H4341,&H4D47,&H424F,&H4459,&H0000,&H00FF,&H0000,&H0000
  202. DATA &H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000
  203. DATA &H0000,&H0258,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000
  204. DATA &H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000
  205. DATA &H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000
  206. DATA &H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000
  207. DATA &H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000
  208. DATA &H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000,&H0000
  209. DATA &H0000,&H0000,&H6669,&H6E66,&H696E,&H6669,&H6E00,&H0000
  210.